home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Oldies / Haktar / WahlAdventure / Pyjama < prev    next >
Encoding:
Text File  |  1999-12-03  |  1009 b   |  43 lines
  1. rem Kleidung
  2.  
  3. ifflag Pyjama ausgezogen
  4.  [
  5.   handle 4
  6.  |]
  7.   rem Man kann die Kleidung nehmen und weglegen, sie wiegt 4 kg.
  8.  
  9. ifflag Pyjama ausgezogen
  10.  [
  11. ifflag Kleidung ausgezogen
  12. [
  13.     rem Wenn der Held sich schon ausgezogen hat...
  14.   do Pyjama anziehen
  15.    [
  16.       rem ... dann kann sich auch wieder anziehen.
  17.     print Schade...
  18.     delflag Pyjama ausgezogen
  19.       rem Haktar merkt sich, daß das Flag 'Pyjama ausgezogen' gelöscht wurde.
  20.     addtime 1
  21.       rem Das kostet natürlich etwas Zeit.
  22.     ifitemin Kleidung,INV
  23.      [|
  24.       move Pyjama,ACTROOM,INV
  25.       addweight 4
  26.      ]
  27.    ]
  28. |] 
  29. |
  30.     rem ... und dies hier wird nur gelesen, wenn das Flag gelöscht ist.
  31.   do ausziehen
  32.    [
  33.       rem Wenn der User die Kleidung ausziehen will, wird das hier ausgeführt.
  34.     print WOW !  Sexy...
  35.     print Du ziehst die Klamotten aus...
  36.     setflag Pyjama ausgezogen
  37.       rem So einfach geht das, Haktar weiß nun, daß der Held nackt ist.
  38.     addtime 5
  39.       rem Und anziehen geht langsamer, als ausziehen.
  40.    ]
  41.  ]
  42.  
  43.